﻿Public Class clsTpMst
    Public Function selectAll(tp_no As String) As DataTable
        Dim szSql As String = String.Empty
        szSql &= "SELECT * FROM sf.t_mst_tp "
        szSql &= " WHERE 1 = 1 "
        If tp_no.Length > 0 Then
            szSql &= " and tp_no = ? "
        End If
        szSql &= " ORDER BY update_time "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, tp_no)
        If IsNothing(dt) Then
            selectAll = New DataTable
        Else
            selectAll = dt
        End If
    End Function
End Class
